home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 April / Macworld (1999-04).dmg / Cool Specials / Al Morale Demo / Al's Stuff / D200.DCR / 00073_Exit Prefs.ls < prev    next >
Encoding:
Text File  |  1999-02-16  |  758 b   |  34 lines

  1. on enterFrame
  2.   if the hilite of member 80 then
  3.     put "8" into field "MyNickNum"
  4.   end if
  5.   if the hilite of member 78 then
  6.     put "7" into field "MyNickNum"
  7.   end if
  8.   if the hilite of member 76 then
  9.     put "6" into field "MyNickNum"
  10.   end if
  11.   if the hilite of member 74 then
  12.     put "5" into field "MyNickNum"
  13.   end if
  14.   if the hilite of member 72 then
  15.     put "4" into field "MyNickNum"
  16.   end if
  17.   if the hilite of member 70 then
  18.     put "3" into field "MyNickNum"
  19.   end if
  20.   if the hilite of member 68 then
  21.     put "2" into field "MyNickNum"
  22.   end if
  23.   if the hilite of member 66 then
  24.     put "1" into field "MyNickNum"
  25.   end if
  26.   if the hilite of member 93 then
  27.     put "9" into field "MyNickNum"
  28.   end if
  29. end
  30.  
  31. on exitFrame
  32.   go(the frame - 1)
  33. end
  34.